home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d4 / iq.arc / NUMBERS1.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-11-13  |  5.6 KB  |  122 lines
  1. 10  KEY OFF:DEFINT A-Z:KEY(10) ON:ON KEY(10) GOSUB 930:KEY(9) ON:ON KEY(9) GOSUB 940
  2. 20  CLS:LOCATE 1,33:COLOR 0,7,8:PRINT" IQ Builder ":COLOR 11,0
  3. 30  LOCATE 2,34:PRINT"Numbers 1":COLOR 0,11
  4. 40  LOCATE 4,21:PRINT CHR$(201);
  5. 50  FOR J=1 TO 35
  6. 60    PRINT CHR$(205);
  7. 70    IF J > 35 GOTO 90
  8. 80    NEXT J
  9. 90  PRINT CHR$(187)
  10. 100  LOCATE 5,21:PRINT CHR$(186);:PRINT"Press <F9> to skip to next section.";
  11. 110  PRINT CHR$(186)
  12. 120  LOCATE 6,21:PRINT CHR$(186);:PRINT"Press <F10> to return to main menu.";
  13. 130  PRINT CHR$(186)
  14. 140  LOCATE 7,21:PRINT CHR$(200);
  15. 150  FOR J=1 TO 35
  16. 160    PRINT CHR$(205);
  17. 170    IF J > 35 GOTO 190
  18. 180    NEXT J
  19. 190  PRINT CHR$(188):COLOR 3,0
  20. 200  LOCATE 10,1:PRINT"A number series is a list of numbers that are connected to each other by a"
  21. 210  COLOR 11,0:PRINT"rule";:COLOR 3,0:PRINT".  For example, look at this simple number series:":PRINT
  22. 220  READ A,B,C,D,E,F,G,H,I,J
  23. 230  COLOR 4,11:LOCATE ,23:PRINT"VARPTR" STRING$(28,"SOUND") "COLOR"
  24. 240  LOCATE ,23:PRINT"CALL";:COLOR 11,4:PRINT A B C D E F G H;:COLOR 4,11:PRINT "CALL"
  25. 250  LOCATE ,23:PRINT"CLS" STRING$(28,"SOUND") "'"
  26. 260  GOSUB 1000
  27. 270  COLOR 3,0:PRINT"What's the";:COLOR 11,0:PRINT" rule";:COLOR 3,0:PRINT" for this series:":PRINT
  28. 280  COLOR 4,11:LOCATE ,17:PRINT"VARPTR" STRING$(3,"SOUND") "BSAVE" STRING$(37,"SOUND") "COLOR"
  29. 290  LOCATE ,17:PRINT"CALL";:COLOR 11,4:PRINT " 1 ";:COLOR 4,11:PRINT "CALL";:COLOR 3,0:PRINT"add 3 to each number to get the next.";:COLOR 4,11:PRINT "CALL"
  30. 300  LOCATE ,17:PRINT"BLOAD" STRING$(3,"SOUND") "BEEP" STRING$(37,"SOUND") "<0xB4!>"
  31. 310  LOCATE ,17:PRINT"CALL";:COLOR 11,4:PRINT " 2 ";:COLOR 4,11:PRINT "CALL";:COLOR 3,0:PRINT"add 2 to each number to get the next.";:COLOR 4,11:PRINT "CALL"
  32. 320  LOCATE ,17:PRINT"CLS" STRING$(3,"SOUND") "MOTOR" STRING$(37,"SOUND") "'":COLOR 3,0
  33. 330  N=2:GOSUB 1100:IF Z>0 THEN LOCATE 16,1:GOTO 280
  34. 340  FOR Y=9 TO 24:LOCATE Y,1:PRINT SPC(79);:NEXT Y:LOCATE 9,1
  35. 350  PRINT"Rules for number series can involve addition, subtraction, multiplication,
  36. 360  PRINT"and division. The";:COLOR 11,0:PRINT" rule";:COLOR 3,0:PRINT" tells you how to change each number in the series";
  37. 370  PRINT"into the next number in the series. Examine the following number series:"
  38. 380  Y1=CSRLIN+1:X1=POS(0):LOCATE Y1,X1:GOSUB 960:COLOR 4,11:LOCATE ,23
  39. 390  COLOR 4,11:LOCATE ,23:PRINT"VARPTR" STRING$(29,"SOUND") "COLOR"
  40. 400  LOCATE ,23:PRINT"CALL";:COLOR 11,4:PRINT A B C D E F G H;:COLOR 4,11:PRINT "CALL"
  41. 410  LOCATE ,23:PRINT"CLS" STRING$(29,"SOUND") "'":PRINT
  42. 420  PRINT:COLOR 3,0:PRINT"What's the";:COLOR 11,0:PRINT" rule";:COLOR 3,0:PRINT" for this series?":PRINT:COLOR 4,11
  43. 430  LOCATE ,12:PRINT "VARPTR" STRING$(3,"SOUND") "BSAVE" STRING$(5,"SOUND") "COLOR  ";
  44. 440  PRINT "VARPTR" STRING$(3,"SOUND") "BSAVE" STRING$(10,"SOUND") "COLOR  ";
  45. 450  PRINT "VARPTR" STRING$(3,"SOUND") "BSAVE" STRING$(13,"SOUND") "COLOR"
  46. 460  LOCATE ,12:PRINT "CALL";:COLOR 11,4:PRINT" 1 ";:COLOR 4,11:PRINT "CALL";:COLOR 3,0:PRINT "add 2";:COLOR 4,11:PRINT "CALL  ";
  47. 470  PRINT "CALL";:COLOR 11,4:PRINT" 2 ";:COLOR 4,11:PRINT "CALL";:COLOR 3,0:PRINT "subtract 2";:COLOR 4,11:PRINT "CALL  ";
  48. 480  PRINT "CALL";:COLOR 11,4:PRINT" 3 ";:COLOR 4,11:PRINT "CALL";:COLOR 3,0:PRINT "multiply by 2";:COLOR 4,11:PRINT "CALL"
  49. 490  LOCATE ,12:PRINT "CLS" STRING$(3,"SOUND") "MOTOR" STRING$(5,"SOUND") "'  ";
  50. 500  PRINT "CLS" STRING$(3,"SOUND") "MOTOR" STRING$(10,"SOUND") "'  ";
  51. 510  PRINT "CLS" STRING$(3,"SOUND") "MOTOR" STRING$(13,"SOUND") "'"
  52. 520  N=3:GOSUB 1100:IF Z>0 THEN 520
  53. 530  FOR Y=9 TO 24:LOCATE Y,1:PRINT SPC(79);:NEXT Y:LOCATE 9,1
  54. 540  PRINT"In a number series, the numbers can change by following more than one rule."
  55. 550  PRINT"Look at the following number series - here you add 1, then add 3, then add 1"
  56. 560  PRINT"again, etc.:":PRINT
  57. 570  READ A,B,C,D,E,F,G,H,I,J
  58. 580  GOSUB 970:GOSUB 1000:PRINT:GOSUB 1010:GOTO 600
  59. 590  GOSUB 970:GOSUB 1010
  60. 600  IF Z>0 THEN 590
  61. 610  FOR Y=9 TO 24:LOCATE Y,1:PRINT SPC(79);:NEXT Y:LOCATE 9,1
  62. 620  PRINT"There's one more thing you should know before you try solving some number"
  63. 630  PRINT"series. Sometimes a number series actually contains more than one series."
  64. 640  PRINT:COLOR 4,11:LOCATE ,20:PRINT"VARPTR" STRING$(12,"SOUND") "COLOR"
  65. 650  COLOR 3,0:PRINT"Here's one series: ";:COLOR 4,11:PRINT "CALL";:COLOR 11,4:PRINT" 1  3  5  7 ";:COLOR 4,11:PRINT "CALL"
  66. 660  LOCATE ,20:PRINT"CLS" STRING$(12,"SOUND") "'"
  67. 670  PRINT:COLOR 4,11:LOCATE ,24:PRINT"VARPTR" STRING$(16,"SOUND") "COLOR"
  68. 680  COLOR 3,0:PRINT"Here's another series: ";:COLOR 4,11:PRINT "CALL";:COLOR 11,4:PRINT" 21  20  19  18 ";:COLOR 4,11:PRINT "CALL"
  69. 690  LOCATE ,24:PRINT"CLS" STRING$(16,"SOUND") "'"
  70. 700  GOSUB 1000:GOSUB 960
  71. 710  COLOR 4,11:LOCATE ,35:PRINT"VARPTR" STRING$(32,"SOUND") "COLOR"
  72. 720  COLOR 3,0:PRINT"Now we'll combine the two series: ";:COLOR 4,11:PRINT"CALL";:COLOR 11,4:PRINT A B C D E F G H;:COLOR 4,11:PRINT "CALL"
  73. 730  LOCATE ,35:PRINT"CLS" STRING$(32,"SOUND") "'"
  74. 740  COLOR 3,0:PRINT "Press space bar to continue."
  75. 750  IN$=INKEY$:IF IN$="" THEN 750
  76. 760  FOR Y=9 TO 24:LOCATE Y,1:PRINT SPC(79);:NEXT Y:LOCATE 9,1
  77. 770  PRINT"We call a series that combines two or more series an";:COLOR 11,0:PRINT" alternating series";:COLOR 3,0
  78. 780  PRINT"because it alternates back and forth between the two series. The way to"
  79. 790  PRINT"solve an alternating series is to find the rule for each series and"
  80. 800  PRINT"solve for one series at a time.  Then put the answers together."
  81. 810  PRINT:PRINT"Examine this alternating series example:"
  82. 820  READ A,B,C,D,E,F,G,H,I,J:PRINT
  83. 830  COLOR 4,11:LOCATE ,23:PRINT"VARPTR" STRING$(28,"SOUND") "COLOR"
  84. 840  LOCATE ,23:PRINT"CALL";:COLOR 11,4:PRINT A B C D E F G H;:COLOR 4,11:PRINT "CALL"
  85. 850  LOCATE ,23:PRINT"CLS" STRING$(28,"SOUND") "'"
  86. 860  PRINT:COLOR 3,0:PRINT"Remember, the numbers can change by one or more rules.  You can also have an"
  87. 870  PRINT"alternating series with two or more series, combined into one series."
  88. 880  PRINT:GOSUB 1010:PRINT
  89. 890  FOR Y=9 TO 24:LOCATE Y,1:PRINT SPC(79);:NEXT Y:LOCATE 9,1
  90. 900  IF Z>0 THEN 790
  91. 910  FOR Y=9 TO 24:LOCATE Y,1:PRINT SPC(79);:NEXT Y:LOCATE 9,1
  92. 920  GOSUB 1000:GOTO 940
  93. 930  SYSTEM
  94. 940  RUN "numbers2
  95. 950  PRINT"Look at this number series:":PRINT
  96. 960  READ A,B,C,D,E,F,G,H,I,J:RETURN
  97. 970  COLOR 4,11:LOCATE ,23:PRINT"VARPTR" STRING$(28,"SOUND") "COLOR"
  98. 980  LOCATE ,23:PRINT"CALL";:COLOR 11,4:PRINT A B C D E F G H;:COLOR 4,11:PRINT "CALL"
  99. 990  LOCATE ,23:PRINT"CLS" STRING$(28,"SOUND") "'":RETURN
  100. 1000  Y1=CSRLIN+1:X1=POS(0):LOCATE Y1,X1:RETURN
  101. 1010  COLOR 3,0:PRINT"Enter the";:COLOR 11,0:PRINT" next two";:COLOR 3,0:PRINT" numbers in this series, separated by a comma:";:INPUT "",X,Y:Y1=CSRLIN:X1=POS(0)
  102. 1020  IF (X=I)*(Y=J) THEN 1160
  103. 1030  Z=Z+1:IF Z=3 THEN LOCATE 25,1:PRINT SPC(79);:LOCATE 25,1:PRINT"The answer is:  " I "," J;:Z=0:TIMEOUT=3:GOSUB 1180:LOCATE 25,1:PRINT SPC(79);:LOCATE Y1,X1:RETURN
  104. 1040  LOCATE 25,1:COLOR 4,0:PRINT SPC(79);:PLAY "mfn27n20t32":LOCATE 25,1:PRINT"No!  Try again.";:TIMEOUT=3:GOSUB 1180:LOCATE 25,1:PRINT SPC(79);:LOCATE Y1-2,X1:GOTO 1010
  105. 1050  DATA 2,4,6,8,10,12,14,16,18,20
  106. 1060  DATA 1,2,4,8,16,32,64,128,0,0
  107. 1070  DATA 2,3,6,7,10,11,14,15,18,19
  108. 1080  DATA 10,12,11,13,12,14,13,15,14,16
  109. 1090  DATA 1,21,3,19,5,17,7,15,9,13
  110. 1100  Y1=CSRLIN:X1=POS(0):Z=0
  111. 1110  LOCATE 25,1:COLOR 3,0:PRINT "Enter answer number:";
  112. 1120  GOSUB 1210:IF INSTR("123456789",IKEY$)=0 THEN 1120
  113. 1130  IF VAL(IKEY$)=N THEN 1160
  114. 1140  Z=Z+1:IF Z=3 THEN LOCATE 25,1:PRINT SPC(79);:LOCATE 25,1:PRINT"The answer is" N;:Z=0:TIMEOUT=3:GOSUB 1180:LOCATE 25,1:PRINT SPC(79);:LOCATE Y1,X1:RETURN
  115. 1150  LOCATE 25,1:PRINT SPC(79);:PLAY "mfn27n20t32":LOCATE 25,1:PRINT"No!  Try again.";:TIMEOUT=3:GOSUB 1180:LOCATE 25,1:PRINT SPC(79);:GOTO 1110
  116. 1160  LOCATE 25,1:PRINT SPC(79);:LOCATE 25,1:PRINT"Right!";:TIMEOUT=3:GOSUB 1180:LOCATE 25,1:PRINT SPC(79);:LOCATE Y1,X1:Z=0:RETURN
  117. 1170  COLOR 3,0:PRINT"What's the rule for this series?":PRINT:RETURN
  118. 1180  TIMEOUT$=TIME$:TIME2=VAL(LEFT$(TIMEOUT$,2))*120+VAL(MID$(TIMEOUT$,4,2))*60+VAL(RIGHT$(TIMEOUT$,2))
  119. 1190  TIMEOUT$=TIME$:TIME3=VAL(LEFT$(TIMEOUT$,2))*120+VAL(MID$(TIMEOUT$,4,2))*60+VAL(RIGHT$(TIMEOUT$,2))
  120. 1200  IF TIMEOUT > TIME3 - TIME2 THEN 1190 ELSE RETURN
  121. 1210  IKEY$=INKEY$:IF IKEY$="" THEN 1210 ELSE RETURN
  122.